00100	TITLE PIC
00200	START:	INIT	1,17		;INIT CHAN FOR TAPE
00300		SIXBIT/DSK/
00400		0
00500		HALT
00510		
00520		LOOKUP 1,FILNA2
00530		HALT
00540	
00600		INPUT	1,MT		;INPUT TAPE BLOCK
00700		CLOSE 	1,		;CLOSE AND POSITION TAPE
00800	GETIM:	MOVE	1,MT		;SET REG FOR TSL
00900		JSR	CONVERT		;TSL TO GREY
01000		MOVEI	2,10		;MOVE COUNT INTO BUFFER
01100		MOVEM	2,TIME-1
01110	MOVEI 2,17000
01120	MOVEM 2,TIME+1
01200		MOVE	2,RSIDE		;MOVE RIGHT SIDE INTO BUFFER
01300		MOVEM	2,TIME
01400		INIT	2,17		;INIT CHAN FOR DSK
01500		SIXBIT/DSK/
01600		0
01700		HALT
01800		ENTER	2,FILNAM	;SET UP DSK FILNAME
01900		HALT
02000		OUTPUT	2,DK		;WRITE PICTURE FILE ON DSK
02100		CLOSE	2,		;CLOSE CHAN TO DSK
02104		SETZM FILNAM+2
02106		SETZM FILNAM+3
02108		AOS 3,FRAMES
02110		ROTC 3,-3
02112		LSH 4,-3
02114		ROTC 3,6
02115		MOVEM 3,4
02116		IOR 3,[SIXBIT/ROAD00/]
02118		MOVEM 3,FILNAM
02120		IORI 4,202020
02130		HRLZM 4,FILNA2+1
02140		SETZM FILNA2+2
02150		SETZM FILNA2+3
02160		AOSGE COUNT
02170		JRST START
02180	FILNA2:	SIXBIT/ROAD/
02190		SIXBIT/011/
02192		0
02194		0
02200		CALL	[SIXBIT/EXIT/]	;TERMINATE JOB
02290	FRAMES:	11
02291	COUNT:	-2
02300	MT:	XWD	-17002,MTBUF-2	;MAG TAPE CNTRL INFO
02400		0
02500	DK:	XWD	-17013,BCLIP-1	;DSK CNTRL INFO
02600		0
02700	FILNAM:	SIXBIT/ROAD00/
02800		SIXBIT/DAT/
02900		0
03000		0
03100	RSIDE:	447
03200	NM10:	17000
03225		0
03250		0
03275		0
03300	BCLIP:	7
03400	TCLIP:	0
03500	BITS:	4
03600	IWID:	440
03700	LINLEN:	40
03800	FLINE:	10
03900	LLINE:	367
04000	LSIDE:	10
04100	TIME:	0
04200		0
04300	MTBUF:	BLOCK	20000		;TAPE BUFFER
04400	CONVERT:	0		;CONVERT TO GREY SUBR
04500		SETZM	13
04600		MOVE	14,(1)
04700		MOVEI	11
04800		MOVE	13,GREY(13)
04900		ROTC	13,4
05000		SOJGE	.-2
05100		MOVEM	14,(1)
05200		AOBJN	1,.-6
05300		JRST	@CONVERT
05400	GREY:	12B3
05500		13B3
05600		11B3
05700		10B3
05800		15B3
05900		14B3
06000		16B3
06100		17B3
06200		5B3
06300		4B3
06400		6B3
06500		7B3
06600		2B3
06700		3B3
06800		1B3
06900		0
07000		END START